home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / CRC-16.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  35 lines
  1. 10 POKE55,.:POKE56,160:CLR:Z$=CHR$(.):O=1:T=2:E=8:X=139:Y=140:Z=141:PRINT"[147]"
  2. 15 F=255:P=239:Q=16:R=222:S=33:PRINT"[197]NTER DISK DRIVE DEVICE NUMBER."
  3. 20 PRINT"([197]NTER 0 TO EXIT.)"
  4. 25 PRINT"  8[145]":INPUTD:IFD=.THENEND
  5. 30 IFD<4ORD>30THENPRINT"[147][201]LLEGAL DEVICE NUMBER":GOTO15
  6. 35 POKE184,8:POKE185,.:POKE186,D
  7. 40 POKE183,1:POKE187,22:POKE188,8:SYS65472
  8. 45 IFPEEK(783)AND1THENCLOSE8:PRINT"[147]?[196]EVICE";D;"[157] NOT PRESENT":GOTO15
  9. 50 PRINT"[147]"
  10. 55 CLOSE8:PRINT"[197]NTER FILENAME."
  11. 60 PRINT"([208]RESS RETURN FOR DEVICE NUMBER PROMPT.)"
  12. 65 F$="":INPUTF$:IFF$=""THEN10
  13. 70 OPEN15,D,15:OPEN8,D,8,F$:INPUT#15,J$,O$,H$,N$:IFJ$="00"THEN80
  14. 75 CLOSE15:PRINT"[147]";J$;",";O$;",";H$;",";N$:GOTO55
  15. 80 PRINT"[147][208]RESS M FOR [205][204].":PRINT"[208]RESS B FOR [194][193][211][201][195]"
  16. 85 GETA$:IFA$="M"ORA$="B"THEN95
  17. 90 GOTO85
  18. 95 PRINT"[147][207]NE MOMENT PLEASE...":IFA$="M"THENSYS3087:GOTO175
  19. 100 K=3:GET#8,A$:POKEX,ASC(A$+Z$)
  20. 105 IFST=.THEN115
  21. 110 POKEY,.:K=T:GOTO170
  22. 115 GET#8,A$:POKEY,ASC(A$+Z$)
  23. 120 IFSTTHEN170
  24. 125 GET#8,A$
  25. 130 POKEZ,ASC(A$+Z$)
  26. 135 FORI=OTOE:A=T*PEEK(Z):C=.:IFA>FTHENC=O
  27. 140 POKEZ,AANDF:A=T*PEEK(Y)+C:C=.:IFA>FTHENC=O
  28. 145 POKEY,AANDF:A=T*PEEK(X)+C:C=.:IFA>FTHENC=O
  29. 150 POKEX,AANDF:IFC=.THEN165
  30. 155 W=PEEK(X):POKEX,WANDPORNOTWANDQ
  31. 160 W=PEEK(Y):POKEY,WANDRORNOTWANDS
  32. 165 NEXT:IFST=.THEN125
  33. 170 K=K-O:IFKTHENA$="":GOTO130
  34. 175 CLOSE8:CLOSE15:PRINT"[142]CRC-16 =";256*PEEK(X)+PEEK(Y)
  35.